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EXPERIENCE  WITH  Q 

IMPLEMENTATION  OF  A 
PROTOTYPE  PROGRAMMING  ENVIRONMENT 

PART  II 


Bruce  J.  MacLennan 

Computer  Science  Department 

Naval  Postgraduate  School 

Monterey,  CA  93943 


Abstract: 

This  is  the  second  report  of  a  series  exploring  the  use  of  the  Q  programming  notation  to  prototype  a 
programming  environment.  This  environment  includes  an  interpreter,  unparser,  syntax  directed  editor, 
command  interpreter,  debugger  and  code  generator,  and  supports  programming  in  a  small  applicative 
language.  The  present  report  extends  the  interpreter,  unparser,  syntax  directed  editor,  command  inter- 
preter and  debugger  to  accomodate  block-structured  identifier  declaration  and  reference. 


1.    Introduction 

Our  goal  in  this  series  of  reports*  is  to  explore  in  the  context  of  a  very  simple  language  the  use  of  the 
f2  programming  notation  [MacLennan83,  MacLennan85]  to  implement  some  of  the  tools  that  consti- 
tute a  programming  environment. 

Our  goal  in  this  report  is  to  extend  the   language  defined  in  [MacLennan85b]    to  incorporate  block 
structured  name  definitions.    For  example,  we  want  to  allow  programs  such  as  these: 

[let   X  =    (3+5) 
(let   Y  =    (6+2) 
(X+(Y-1))]  ] 

We  do  this  in  stages,  first  making  the  necessary  changes  to  the  abstract  syntax,  second  modifying  the 
unparser  and  syntax-directed  editor,  third  extending  the  evaluator,  and  finally  modifying  the  debugger. 


Support  for  this  research  was  provided  by  the  Office  of  Naval  Research  under  contracts  N00014-85-WR-24057  and  N00014- 
86-WR-24092. 
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2.    Abstract  Structure 

There  are  two  new  constructs  to  be  added  to  the  language:  let  blocks  for  binding  names  to  values,  and 
identifier  references  for  making  use  of  the  values  bound  to  names.    A  let  block  such  as  this: 

[let  N  =  X 

B] 

will  be  represented  by  the  structure 


Block 


"N" 


Identifier  references  are  illustrated  by  the  expression: 


[Y-l) 


which  is  represented  by  the  abstract  structure: 


Appl 


Op/  Left  \  Right 


LitVal 


These    abstract  structures   are   easily   accommodated   in   the    relational  framework.     The    static   relations 
required  are: 
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.     Block  (E) 
E  is  a  block 

.     BndVar  (TV,  E) 

N  is  bound  variable  of  E 

.      BndVal  (A",  E) 

X  is  bound  value  of  E 

.     Body  (B,  E) 
B  is  body  of  E 

.      Var(£) 

E  is  a  variable 

.      Ident  [N,  E) 

N  is  identifier  of  E 

The  domains  of  these  relations  are: 

•  expr    =    Con  U    Appl  U    Block  U    Var  U    Undef 

•  Degree  (Block,  1) 

•  Function  (BndVar,  Block,  string) 

•  Function  (BndVal,  Block,  expr) 

•  Function  (Body,  Block,  expr) 

•  Degree  (Var,  1) 

•  Function  (Ident,  Var,  string) 
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3.    Un parser 

3.1  Unparsing  Variables 

The  unparser  rules  must  be  augmented  to  accommodate  the  new  constructs.  Since  Var  nodes  are 
leaves  in  the  expression  tree,  they  can  be  handled  by  a  single  rule: 

*Unparse  (E),  Var  {E),  Ident  (N,  E) 
=*>   Image  (N,  E). 

That  is,  if  we  are  unparsing  a  variable,  and  a  string  is  the  identifier  associated  with  that  variable,  then 
that  string  becomes  the  image  of  that  variable. 

3.2  Unparsing  Blocks 

Since  Block  nodes  are  not  leaves,  two  additional  rules  are  required,  an  analysis  rule  that  passes  the 
Unparse  attribute  down  the  tree,  and  a  synthesis  rule  that  forms  the  composite  image  from  the  images 
of  the  components.    The  analysis  rule  is: 

♦Unparse  (E),  Block  (£),  BndVal  (X,  E),  Body  {B,  E) 
=>    Unparse  (X),  Unparse  {B). 

That  is,  when  we  are  unparsing  a  block,  then  we  unparse  the  bound  value  and  the  body  of  that  block. 
We  do  not  need  to  unparse  the  bound  variable,  since  that  is  just  a  string,  i.e.,  its  own  image. 

The  synthesis  rule  is: 

Block  (E),  BndVar  (N,  E),  BndVal  (X,  E),  Body  {B,  E),  *Image  (  U,  X),  *Image  (  V,  B) 
=>    Image  ( 

Tabln  *NL 

""[let   "  MN  ""  =  "  ~U 

"Tabln  "NL  *  V  ""  ]" 

"TabOut  "TabOut, 

That  is,   when  images  have  arrived  for  the  bound  value  and  body  of  a  block,  then  we  use  these  to  con- 


-4- 


struct  the  image  for  the  block.  Notice  that  we  have  assumed  that  the  variables  'NL',  'Tabln'  and 
'TabOut'  are  defined.  These  are  strings  that  represent  commands  to  a  low-level  display  formatter, 
which  is  also  assumed  to  break  between  tokens  lines  that  are  too  long.  The  functions  of  these  com- 
mand strings  are: 

•  NL:    Go  to  new  line  and  start  to  display  text  at  current  left  margin. 

•  Tabln:    Move  left  margin  in  (to  the  right)  by  some  fixed  increment  (say,  two  spaces). 

•  TabOut:    Move  left  margin  out  (to  the  left)  by  the  same  fixed  increment  used  by  Tabln. 

Tabln  and  TabOut  are  assumed  to  take  effect  on  the  next  newline;  they  do  not  cause  a  newline  on  their 
own. 


4.    Syntax- Directed  Editor 

In  this  section  we  consider  the  changes  to  the  syntax-directed  editor  necessary  to  accommodate  Block 
and  Variable  nodes.    First,  the  let  command  for  creating  Block  nodes  is  handled  by  the  rule: 

♦Command  (let),  *Argument  (TV),  *CurrentNode  (£),  *Undef  (£),  *Avail  (X,B) 
=s>   Block  (£),  BndVar  [N,  E),  BndVal  {X,  E),  Body  {B,  E), 
Undef  (X),  Undef  (B),  CurrentNode  [X). 

The  rule  for  the  var  command  is  similar: 

*Command  (var),  *Argument  (AT),  CurrentNode  (E),  *Undef  (E) 
=>   Var  {E),  Ident  (A,  E). 

It  would  also  be  desirable  to  have  rules  that  detect  the  attempt  to  make  an  already-defined  node  into  a 
Block  or  Var.    Furthermore,  rules  are  required  for  deleting  Block  and  Var  nodes. 

It  is  also  necessary  to  update  the  local  navigation  commands  (in,  out,  next  and  prev)  to  recognize 
Blocks.  This  requires  at  least  one  extra  rule  for  each  of  these  commands.  For  example,  for  next  we 
need: 

♦Command  (next),  *CurrentNode  ( X),  BndVal  {X,  E),  Body  (B,  E) 
=s>   CurrentNode  (B),  Command  (show). 

The  other  commands  are  similar. 


5.    Dynamic  Structure 

5.1    Data  Structures 

Clearly  changes  will  have  to  be  made  to  the  interpreter  to  accommodate  the  new  program  structures. 
It  will  now  be  necessary  to  keep  track  of  the  environment  in  which  an  expression  is  to  be  evaluated. 
Here  the  environment  is  a  set  of  nested  contexts,  each  of  which  binds  a  name  to  its  value.  Thus  the 
environment  can  be  visualized  as  a  chain,  beginning  with  the  environment  of  evaluations  and  terminat- 
ing with  the  outermost  (empty)  context: 


Eval 


Nonlocals 


Nonlocals 


This  runtime  structure  can  be  represented  by  the  following  dynamic  relations: 

•      Context(C) 
C  is  a  context 

.      Binds(C,yV,  V) 
C  binds  TV  to  V 
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.     Nonlocal(C,Z)) 

C  is  nonlocal  context  of  D 

The  domains  of  these  relations  are: 
Degree  (Context, 1) 

•  Degree  (Binds, 3) 

•  Domain  (1,  Binds,  Context) 

•  Domain  (2,  Binds,  string) 

•  Domain  (3,  Binds,  integer) 

•  Indexed  (Binds,  1) 

•  Function  (Nonlocal,  Context,  Context) 

5.2  Modifications  to  Existing  Interpreter  Rules 

Next  we  consider  the  required  modifications  to  the  interpreter.  In  particular,  we  must  modify  the 
interpreter  to  reflect  context  in  which  evaluation  is  being  done.  Thus  we  add  a  '  C"  parameter  to  every 
existing  use  of  Eval  relation: 

lEval('  -    ')'     =->      'Eval('  -    \C)\ 

(Note  that  (E,C)  arguments  to  Eval  are  analogous  to  an  IP-EP  pair.)  We  make  analogous  changes  to 
Value  and  Check: 

'Value  ('-    ','  -    ')'      =>      'Value  ('  -    ','  -    ',<?)'. 
'Check  ('-    ','  -    ')'      =>      'Check  ('  -    ','  -    \C)'. 

Since  the  interpreter  may  detect  an  error  in  evaluation,  we  must  also  consider  the  proper  handling  of 
the  environment  when  an  error  occurs.  Hence,  in  addition  to  recording  (in  CurrentNode)  the  node 
whose  evaluation  caused  the  error,  we  will  also  record  (in  CurrentContext)  the  context  in  which  that 
node  was  being  evaluated.    So  we  alter  error  handling  to  save  the  current  node  and  the  current  context: 

*Check(  W,E,C),  Explanation (5,  W),  *CurrentNode(-  ),  *CurrentContext(-  )  if  errorcode|  W\ 
=>    Display(S),  CurrentNode (£) ,  CurrentContext(C) . 


Similarly,  the  evaluate  command  uses  this  saved  context: 

*Co  mm  and  (evaluate),  CurrentNode(.E'),  CurrentContext(C) 
=^>   Eval(£,C). 

5.3    Rules  for  Block  Evaluation 

There  are  three  steps  in  the  evaluation  of  a  block: 

1.  Evaluate  the  bound  value  expression. 

2.  Bind  the  local  name  to  the  bound  value  and  evaluate  the  block  body  in  the  resulting  context. 

3.  Return  the  value  of  the  block  body  to  the  parent  expression. 

We  consider  the  rules  for  each  of  these  steps.    To  evaluate  the  bound  value  we  have: 

*Eval(£,C),  Block(£),  BndVal(  A\£) 
=^   Eval(v,C). 

That  is,  when  the  Eval  message  arrives  at  the  block,  we  send  it  on  to  the  bound  value  expression. 
Notice  that  the  bound  value  expression  is  evaluated  in  the  same  environment  as  the  block  (thus  recur- 
sive definitions  are  not  permitted). 

Next  we  bind  the  local  name  to  the  bound  value  and  evaluate  the  body  in  the  resulting  context. 
This  is  accomplished  by  waiting  for  a  value  to  arrive  and  the  node  for  the  bound  value  expression,  and 
using  it  to  create  a  new  context: 

Block(£),  BndVar(JV,£),  BndVal(v,£),  Body(fl,£),  *Value(  V,  X,  C),  *Avail(Z?) 
=^>   Context(D),  Binds(£,7V,  V),  Nonlocals(  C,D),  Eval(fl,D). 

The  last  rule  waits  for  a  value  to  be  attached  to  the  block  body,  and  returns  the  value  to  the  surround- 
ing expression: 

Block(£),  Body(B,E),  *Value(  V,B,D),  NonLocals(  C,D) 
=*>   Value(K,£,C). 
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5.4    Name  Lookup 

Next  we  consider  the  rules  for  name  lookup.    To  control  the  lookup  process  we  need  an  additional 
dynamic  relation: 

.     Looking(JV,C,  E,D) 

Looking  for  TV  in  C,  to  be  value  of  E  in  D 

•  Degree  (Looking, 2) 

•  Domain  (1,  Looking,  string) 

•  Domain  (2,  Looking,  Context) 

•  Domain  (3,  Looking,  expr) 

•  Domain  (4,  Looking,  Context) 

The  first  rule  initiates  the  search  when  an  Eval  message  arrives  at  a  Var  node.    The  search  begins  with 
the  current  context: 

*Eval(£,C),  Var(£),  Ident(JV,£) 
=->   Looking(JV,C,£,C) 

Now  there  are  several  possible  conditions  that  occur  during  a  search.    First,  the  binding  may  be  found, 
in  which  case  we  must  attach  the  bound  value  to  the  Var  node: 

*Looking(./V,C, E,D),  Binds(  C,N,  V) 
=>   Value(  V,E,D). 

Second,    we   might   not   have    found   the    binding,    but  there   might   be    more   nonlocal  contexts   in   the 
environment  chain.    Thus  we  continue  looking: 

else  *Looking(iV,C,£,Z}),  Nonlocal(C  \C) 
=>   Looking(^,C',£',D). 

Finally,  if  a  binding  for  the  name  has  not  been  found,  and  we  are  at  the  end  of  the  environment  chain, 
then  the  variable  must  be  unbound,  so  we  signal  an  error: 


in. 


else  *Looking( N,C,E,D),  *CurrentNode(-  ),  *CurrentContext() 

=>   CurrentNode(£),  CurrentContext(D),  Display("Unbound:  "*JV). 

Thus  we  are  naturally  led  to  the  next  topic,  the  debugger. 
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6.    Debugging  Commands 
6.1    Desired  Features 

Debugging  requires  commands  to  interrogate  and  update  the  "contextual  database."  For  example: 

•  out_context: 

move  to  next  outer  context 

•  in_context: 

move  to  next  inner  context 

(this   may   not   be   single-valued,   i.e.,   there   may  be   several  more   inner  contexts;   a  real  debugger 

would  have  to  handle  this) 

•  context: 

display  local  context 

•  alter  v: 

alter  local  binding 

We  give  an  example  illustrating  these  commands.  For  the  sake  of  the  example  we  suppose  that  the 
evaluation  is  started  and  then  interrupted  (by  the  attention  key)  within  the  innermost  context.  We 
begin  by  showing  the  program: 

show 
[letX  =    (3+5) 
[letY  =    (6+2) 

(X+(Y-1))  ]  ] 

Next  we  begin  interpretation,  and  interrupt  it: 

evaluate 
attention 

interrupted 

We  can  now  look  at  the  current  context  (saved  in  CurrentContext  upon  interruption): 
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context 

Y  =   3 

We  can  move  to  the  surrounding  context: 

out_cantext 

X  =   8 

We  can  alter  the  bound  value  in  this  context: 

alter  7 
X  =   7 

We  can  return  back  to  the  original  context: 

in_context 

Y  =   3 

And,  if  we  move  too  far  out,  we'll  be  told: 

out_cantext 

X  =   7 
out_conitext 

at  outermost  level 

6.2    Implementation  of  Debugging  Commands 

How  can  these  commands  be  implemented?  They're  quite  easy.  First  consider  the  context  command. 
All  that's  necessary  here  is  to  extract  the  bound  variable  and  it's  value  from  the  current  context,  and 
display  them: 

*Co  mm  and  (con  text),  CurrentContext(  C),  Binds(  C,N,  V) 
=>   Display(  N  ""  =   "   *  string*-  hit  [  V]  ) 

else  *Command(ccmtext) 
=s>    Display("no  bindings"). 

We  have  added  a  diagnostic  rule  for  the  case  where  there  are  no  active  contexts. 
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The  out_cantext  command  is  also  simple:    we  move  out  on  the  environment  chain  and  display  its 
binding  by  issuing  a  context  command: 

*Command(out_context),  *CurrentContext(D),  Nonlocal(C,Z?) 
=£•   CurrentContext(C),  Command  (context) 

else  *Command(out_context) 

=?>    Display("at  outermost  level"). 

The  in_context  command  is  analogous. 

All  that  remains  is  the  alter  command.    In  this  case  we  expect  a  new  value  to  be  typed  in,  and  then 
use  this  value  to  replace  the  previous  bound  value: 

*Co  mm  and  (alter),  *Argument(  U),  CurrentContext(C),  *Binds(  C,N,  V) 
=>    Binds  (  C,N,  U),  Command  (context) 

else  *Command(alter),  *Argument(—  ) 
=>   Display("no  binding"). 

Again  we've  added  a  diagnostic  rule. 
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APPENDIX  A:    Prototype  Programming  Environment 
Predicate  Notation  for  fi 

The  following  is  a  loadable  input  file  for  the  prototype  programming  environment  described  in  this 
report.  It  is  accepted  by  the  McArthur  interpreter  [McArthur84],  which  differs  in  a  few  details  from 
the  ft  described  in  the  previous  report  (see  [MacLennan84] ).  A  transcript  of  a  test  execution  of  this 
environment  is  shown  in  Appendix  B. 

!  PI-2 

!  Rules  and  associated  definitions  for 

!  an  arithmetic  expression  language 

!  with  variable  declarations. 

!  Relations 


!    Program  Structure  Relations 

"Appl",  newrelO}; 
"Op",  newrel{}}; 
"Left",  newrel{}}; 
"Right",  newrel{}}; 
"Con",  newrel{}}; 
"Litval",  newrel{}}; 
"Block",  newrel{}}; 
"BndVar",  newrelj}}; 
"BndVal",  newrel{}}; 
"Body",  newrel{}}; 
"Var",  newrel{}}; 
"Ident",  newrel{}}; 


define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

define 

root, 

!    Evaluation  Relations 


define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

define 

{root, 

"Eval",  newrel{}}; 
"Check",  newrel{}}; 
"Value",  newrel{}}; 
"Meaning",  newrel{}}; 
'Explanation",  newrel{}}; 
"Context",  newrel{}}; 
"Binds",  newrel{}}; 
"Nonlocal",  newrel{}}; 
"Looking",  newrel{}}. 


!    Unparser  Relations 

define  {root,  "Unparse",  newrel{}}; 
define  {root,  "Image",  newrel{}}; 
define  {root,  'Template",  newrel{)}; 


!    Command  Interpreter  Relations 


define 
define 
define 
define 
define 
define 

define 
define 
define 
define 
define 


root,  "Command",  newrel{}}; 

root,  "Argument",  newrel{}}; 

root,  "Root",  newrel{}}; 

root,  "Undef",  newrel{}}; 

root,  "Current Node",  newrel{}}; 

root,  "CurrentContext",  newrel{}}; 

root,  "EvalPending",  newrel{}}; 
root,  'ShowPending",  newrel{}}; 
root,  "Cre  ate  A  ppl",  newrel{}}; 
root,  "CreateRoot",  newrel{}}; 
root,  'CreateLet",  newrel{}}; 
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define  {root,  "Create Context",  newrel{}}; 

define  {root,  'Script",  newrel{}}; 
define  {root,  "PendScript",  newrel{}}; 
define  {root,  'Test",  newrel{}}. 

!  Functions 

fn  Id  [x] :  x; 

fn  Sum  [x,y]:  x  +   y; 

fn  Dif  [x,y]:  x  -  y; 

fn  Product  [x,y]:  x  *  y; 

fn  Quotient  [x,yj : 

if  y  =   0  ->    ['terror",  1] 

else  x  /  y; 

fn  IsErrorcode  [w]: 

if  nsList(w)  |  w  =  Nil  ->   Nil 
else  first) w]  =    "error"; 

fn  upSum  [x,y]:  "("+   x  +    »  +   "  +   y  +   ")"; 
fn  upDif  [x,yj:  "("  +   x  +    "-  "  +   y  +    ")"; 
fn  upProd  |x,y]:  "("+   x  +    "x  "  +    y  +    ") "; 
fn  upQuot  [x,y]:  "("+   x+    "/"+    y+    ")". 

!  Constants 

define  {root,  "NL",  " 

"}; 

define  {root,  'Tabln",  ""}; 
define  {root,  'TabOut",  ""}; 
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!  Built-in  Tables 

Meaning  (Sum,  "+  "); 
Meaning  (Dif,  "-"); 
Meaning  (Product,  "x"); 
Meaning  (Quotient,  "/"); 
Meaning  (Id,  "lit"); 

Template  (upSum,  "+  "); 
Template  (upDif,  "-"); 
Template  (upProd,  "x"); 
Template  (upQuot,  "/"); 
Template  (int_str,  "lit") ; 

Explanation  ("incomplete  program",  ['ferror",  0]); 
Explanation  ("division  by  zero",  ["error",  l]). 

!  the  Rules 

define  {root,  "Pl2Rules", 

<  < 

!  Evaluator  Rules 

!  Constant  nodes 

if  *Eval(e,c),  Con(e),  Litval(v,e),  Meaning(f,  'lit") 
->    Value(f(  v] ,  e,  c) ; 

!  Appl  nodes 

if  *Eval(e,c),  Appl(e),  Left(x,e),  Right(y,e) 
->    Eval(x,c),  Eval(y,c); 
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if  *Value(u,x,c) ,  *Value(v,y,c), 

Appl(e),  Op(n,e),  Left(x,e),  Right(y,e),  Meaning(f,  n) 
->    Check(f[u,v] ,  e,  c); 

!  Error  Checking 

if  *Check(w,  e,  c),  nsErrorcodejw] 
->    Value(w,  e,  c); 

if  *Check(w,  e,  c),  IsErrorcodejwj,  Explanation(s,  w),  *CurrentNode(q) 
->    displayn{s},  CurrentNode(e),  CurrentContext(c); 

!  Unparser 

!  Constant  Nodes 

if  *Unparse(e),  Con(e),  Litval(v,e),  Template(f,  'lit") 
->    Image(f[v],  e); 

!  Identifier  nodes 

!  Appl  nodes 

if  *Unparse(e),  Appl(e),  Left(x,e),  Right(y,e) 
->    Unparse(x),  Unparse(y); 

if  *Image(u,x),  *Image( v,y), 

Appl(e),  Op(n,e),  Left(x,e),  Right(y,e),  Template(f,  n) 
->    Image(f[u,v] ,  e); 

!    Command  Interpreter  Rules 

!    evaluate  Command 

if  *Comm  and  ("evaluate"),  CurrentNode(E) ,  CurrentContext(C) 
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->    Eval(E,C),  EvalPending(E); 

if  *Value(V,E,C),  *EvalPending(E) 
->    displayn  {V}; 

!    return  Command 

if  *Command("val"),  *Argument(V),  CurrentNode(E) 
->    Value(V,E,C); 

!    show  Command 

if  *Command('<show"),  CurrentNode(E) 
->    Unparse(E),  ShowPending(E); 

if  *Image(S,E),  *ShowPending(E) 
->    displayn  {S}; 

!    abort  Command 

if  Command  ("abort"),  *Eval(E,C)  ->    ; 

if  Commandf  "abort"),  *Value(V,E,C)  ->    ; 

if  Com mand( "abort"),  *Check(V,E,C)  ->    ; 

if  Command) "abort"),  *Nonlocal(C,D)  ->    ; 

if  Command) "abort"),  *Binds(D,N,V)  ->    ; 

if  *Command( "abort"), 

*Eval(E,C),  'Value  (V,E,C),  ~Nonlocal(C,D),  -Binds(D,N,V) 
->    displayn  {"aborted"}; 

!    Handle  incomplete  program 
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if  *Eval(E,C),  Undef(E),  *CurrentNode(Q) 

->    displayn ('Incomplete"),  CurrentNode(E),  CurrentContext(C); 

if  *Unparse(E),  Undef(E) 
->    Image  ("<  expr>  ",  E); 

!    Syntax  Directed  Editing 

!    in  Command 

if  *Command("in"),  *CurrentNode(E),  Left(X,E) 
->    CurrentNode(X),  Command( "show") ; 

if  *Command("out"),  *CurrentNode(X),  Left(X,E) 
->    CurrentNode(E),  Command('!show"); 

if  *Command(*W"),  *CurrentNode( Y),  Right(Y,E) 
->    CurrentNode(E),  Commandf  "show"); 

!    next  Command 

if  *Command("next"),  *CurrentNode(X) ,  Left(X,E),  Right(Y,E) 
->    CurrentNode(Y),  Com mand( "show"); 

!    prev  Command 

if  *Co  mm  and  ("prev"),  *CurrentNode(Y) ,  Right(Y,E),  Left(X,E) 
->    CurrentNode(X),  Commandf  '<show") ; 

!    delete  command 

if  *Command( "delete"),  CurrentNode(E),  *Con(E),  *Litval(V,E) 
->    Undef(E),  Command("show"); 

if  *Command( "delete"),  CurrentNode(E), 


*Appl(E),  *Op(N,E),  *Left(X,E),  Right(Y,E) 
->    Undef(E),  Command(?,show"); 

if  *Command('tielete"),  CurrentNode(E),  Undef(E) 
->    displayn ("already  deleted"); 

!    #  Command 

if  *Comm  and ("#"),  *Argument(V),  IsInt|V],  CurrentNode(E),  *Undef(E) 
->    Con(E),  Litval(V,E),  Command("show"); 

if  *Co  mm  and  ("#"),  *Argument(V),  CurrentNode(E),  "Undef(E) 
->    displayn  ("defined  node") ; 

!    +  ,  -,  x  ,  /  Commands 

if  *Command(op),  member  (op,  ["+  «   "-",  "x",  "/")], 

*CurrentNode(E),  *Undef(E) 
->    Create Appl(op,  E,  newobjj},  newobj{}); 

if  *CreateAppl(op,E,X,Y) 

->    Appl(E),  Op(op,E),  Left(X,E),  Right(Y,E), 
Undef(X),  Undef(Y),  CurrentNode(X) ; 

!    begin  Command 

if  *Comm  and  ("begin"),  *CurrentNode(Q) 
->     Create  Root(newobj{}); 

if  *CreateRoot(E) 

->    Root(E),  Undef(E),  CurrentNode(E); 

!    root  Command 
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if  "Command ("root"),  *CurrentNode(Q),  Root(E) 
->    CurrentNode(E),  Command('<show"); 

!    Unparsing  Variables 

if  *Unparse(E),  Var(E),  Ident(N,E) 
->    Image(N,E); 

!    Unparsing  Blocks 

!    Analysis 

if  *Unparse(E),  Block(E),  BndVal(X,E),  Body(B,E) 
->    Unparse(X),  Unparse(B); 

!    Synthesis 

if  Block(E),  BndVar(N,E),  BndVal(X,E),  Body(B,E), 
*Image(U,X),  *Image(V,B) 
->    Image(  Tabln  +    NL 

+   "[let   »  +   N  +   "=   "  +   U 
+   Tabln  +   NL  +   V  +    "  ] " 
+   TabOut  +   TabOut, 
E); 

!    Editor 

!    var  Command 

if  *Command(*Var"),  *Argument(N) ,  CurrentNode(E),  *Undef(E) 
->    Var(E),  Ident(N,E); 

!    let  Command 


if  *Co  mm  and  ("let"),  *Argument(N),  *CurrentNode(E),  *Undef(E) 
->    CreateLet(N,  E,  newobj{},  newobj{}); 

if  *CreateLet  (N,  E,  X,  B) 

->    Block(E),  BndVar(N,E),  BndVal(X,E),  Body(B,E), 
Undef(X),  Undef(B),  CurrentNode(X); 

!  in  Command  for  Blocks 

if  *Command("in"),  *CurrentNode(E),  BndVal(X,E) 
->    CurrentNode(X) ,  Command)  "!show"); 

!  out  Command  for  Blocks 

if  *Command(,,outM),  *CurrentNode(X),  BndVal(X,E) 
->    CurrentNode(E),  Command('%how"); 

if  ^ommandCbut"),  *CurrentNode(B),  Body(B,E) 
->    CurrentNode(E),  Commandf^how"); 

!  next  Command  for  Blocks 

if  *Command("next"))  *CurrentNode(X), 
BndVal(X,E),  Body(B,E) 
->    CurrentNode(B),  Command("show"); 

!  prev  Command  for  Blocks 

if  *Command("prev"),  *CurrentNode(B) , 
Body(B,E),  BndVal(X,E) 
->    CurrentNode(X) ,  Command('!show"); 

!    EVALUATION  OF  BLOCK 
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!    Evaluate  Bound  Value 

if  *Eval(E,C),  Block(E),  BndVal(X,E) 
->    Eval(X,C); 

!    Bind  Var.  to  Value 
!    Evaluate  Body 

if  Block(E),  BndVar(N,E),  BndVal(X,E),  Body(B,E), 
*Value(V,X,C) 
->    CreateContext  (newobj{},  N,  V,  C,  B); 

if  *CreateContext(D,N,V,C,B) 

->    Context(D),  Binds(D,N,V),  Nonlocal(C,D),  Eval(B,D); 

!    Return  Value  To  Surrounding  Block 

if  Block(E),  Body(B,E), 

*Value(V,B,D),  *Nonlocal(C,D),  *Binds(D,N, W),  *Context(D; 
->    Value(V,E,C); 

!    Variable  Lookup 

if  *Eval(E,C),  Var(E),  Ident(N,E) 
->    Looking(N,C,E,C); 

!    VARIABLE  EVALUATION 

!    Binding  Found 

if  *Looking(N,C,E,D),  Binds(C,N,V) 
->    Value(V,E,D) 

!    Continue  Looking 


else  if  *Looking(N,C,E,D),  Nonlocal(Cprime,C) 
->    Looking(N,Cprime,E,D) 

!    Variable  Unbound 

else  if  *Looking(N,C,E,D),  *CurrentNode(Q),  *CurrentContext(Q) 
->    CurrentNode(E),  CurrentContext(D),  displayn(  "Unbound:  "  +   N); 

!    Debugging  Commands 

!    context  Command 

if  *Command( "context"),  CurrentContext(C),  Binds(C,N,V) 
->    displayn(  N  +    "=    "  +    int_str[V]  ) 

else  if  *Command( "context") 
->    displayn ("no  bindings") ; 

!    out_context  Command 

if  *Command('but_context"),  *CurrentContext(D),  Nonlocal(C,D) 
->    CurrentContext(C) ,  Command('tontext") 

else  if  *Command("out_context") 
->    displayn  ("at  outermost  level"); 

!    in_context  Command 

if  *Command("in_context"),  *CurrentContext(C) ,  Nonlocal(C,D) 
->    CurrentContext(D) ,  Command)  "context") 

else  if  *Command("in_context") 
->    displayn("at  innermost  level"); 

!    alter  Command 
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if  *Co  mm  and  ("alter"),  *Argument(U) , 
CurrentContext(C),  *Binds(C,N,V) 
->    Binds(C,N,U),  Command( "context") 

else  if    *Command( "alter"),  *Argument(Q) 
->    displayn("no  binding"); 

!    Test  Driver 

if  *Script(A,Nil)  ->    A("Script  completed") 

else  if  *Script(A,L),  member  [first[L],  ["#",  'Val",  'let",  "Var",  "alter"]] 
->    {  display  {"  ...  "}; 

display  {first  (rest  [L]]}; 

displayn  {"  "  +    first  [L]}; 

Command(first[L]),  Argu me nt( first) rest] L]  ] ); 

PendScript(  A,  rest[rest[L]  ])  } 

else  if  *Script(A,L) 

->    {displayn  {"  ...  "+   first  [L]}; 

Com m and ( first]  L] ); 

PendScript( A,  restjL])  }; 

if  *PendScript( A,L),  'Command(Q)  ->   Script(A,L); 

if  *Test(A,l)  ->    { 
Script{["begin","let","X","+","#",3,"next","#",5,,but","next", 

•let",  "Y","/",  "#",6,  "next",  "#",2, "out",  "next", 

"+  ", 'Var", "X", "next", "/ ",  'Var", "Y","next", "#",  1, "root", Evaluate "]  }; 
A  ("Test  done"); 

}; 


if  *Test(A,2)  ->    { 
Script{[  "in",  "next",  "in",  "next",  "in",  "next",  "in",  "next", 

'Uelete","#",0,"root",  "evaluate"]}; 
A  ('Test  done"); 

}; 

if  *Test(A,3)  ->    { 
Script{[  "context",  "out_context","alter",7, 

"m_context",'but_con  text  ","out_con  text"]  }; 
A  ('Test  done"); 
} 

>>    }• 

!  activate  the  rules 

act{  Pl2Rules  }. 
CurrentNode(Nil). 
CurrentContext(Nil) . 
displayn{"PI-2  System  loaded"}. 
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APPENDIX  B:    Transcript  of  ft    Session 

The  following  is  a  transcript  of  an  Q  session  illustrating  the  operation  of  the  prototype  programming 
environment  shown  in  Appendix  A.  The  call  'Test  {n}'  causes  the  commands  comprising  the  nth  test 
script  to  be  executed  in  order.  Each  command  is  printed  on  a  separate  line,  followed  by  whatever  out- 
put is  generated  by  the  programming  environment.  This  transcript  was  produced  by  the  McArthur 
interpreter  [McArthur84] . 

%  om 

OMEGA-1      11/30/84 

Use  Cntl-D  or  exit{}  to  quit. 

For  help,  enter  help{"?"}. 


To  report  a 

bug, 

enter 

Bugs{} 

>    do{"Pl2.i 

•ul"}. 

PI-2  System 

i  load 

ed 

OK 

>    Testjl}. 

...  begin 

...  X  let 

...  + 

.-  3# 

3 

...  next 
<  expr> 

...  5# 
5 

...  out 
(3  +    5) 


...  next 

<  expr> 
...  Y  let 

-  6# 
6 
...  next 

<  expr> 
...  2# 

2 

...  out 
(6/2) 

...  next 

<  expr> 
...  + 

...  X  var 
...  next 

<  expr> 

...  Y  var 
...  next 

<  expr> 
-I  # 

1 

...  root 

[let    X  =    (3  +    5) 

[let    Y  =    (6/2) 

(X+    (Y/l)) 
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...  evaluate 
11 

Test  done 
>    Test{2}. 

...  in 
(3+    5) 

...  next 

[let    Y=    (6/2) 
(X+   (Y/l))  ] 

...  in 
(6/2) 

...  next 
(X+    (Y/l)) 

...  in 
X 

...  next 
(Y/l) 

...  in 
Y 

...  next 
1 

...  delete 
<  expr> 

...0# 
0 

...  root 

[let    X  =    (3  +    5) 
[let    Y=    (6  /  2) 
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(x+  (Y/o); 

...  evaluate 
division  by  zero 
Test  done 
>   Test{3}. 
...  context 
Y  =    3 

...  out_context 
X  =   8 
...  7  alter 
X  =   7 
...  in_context 
Y  =   3 
...  out_context 
X  =   7 
...  out_context 
no  bindings 
Test  done 
>   exit{}. 

Goodbye. 

% 
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